home *** CD-ROM | disk | FTP | other *** search
/ Your Choice 3 / Your Choice Software Collection 3.iso / prgmming / pbmodx10 / utils.inc < prev    next >
Text File  |  1994-06-04  |  2KB  |  111 lines
  1.  
  2.     ' Misc Constants
  3.  
  4. %True     = -1
  5. %False    = 0
  6. %nil      = 0
  7.  
  8.     ' Keyboard Codes: Extended
  9.  
  10. %KyF1     = &H3B00
  11. %KyF2     = &H3C00
  12. %KyF3     = &H3D00
  13. %KyF4     = &H3E00
  14. %KyF5     = &H3F00
  15. %KyF6     = &H4000
  16. %KyF7     = &H4100
  17. %KyF8     = &H4200
  18. %KyF9     = &H4300
  19. %KyF10    = &H4400
  20.  
  21. %KyUp     = &H4800
  22. %KyLeft   = &H4B00
  23. %KyRight  = &H4D00
  24. %KyDown   = &H5000
  25. %KySLeft  = &HCB00
  26. %KySRight = &HCD00
  27. %KySUp    = &HC800
  28. %KySDown  = &HD000
  29.  
  30. %KyHome   = &H4700
  31. %KyPgUp   = &H4900
  32. %KyEnd    = &H4F00
  33. %KyPgDn   = &H5100
  34. %KySHome  = &HC700
  35. %KySPgUp  = &HC900
  36. %KySEnd   = &HCF00
  37. %KySPgDn  = &HD100
  38.  
  39. %KyIns    = &H5200
  40. %KyDel    = &H5300
  41. %KyRvsTab = &H8F00
  42. %KySIns   = &HC200
  43. %KySDel   = &HC300
  44.  
  45. %KyAltA   = &H1E00
  46. %KyAltB   = &H3000
  47. %KyAltC   = &H2E00
  48. %KyAltD   = &H2000
  49. %KyAltE   = &H1200
  50. %KyAltF   = &H2100
  51. %KyAltG   = &H2200
  52. %KyAltH   = &H2300
  53. %KyAltI   = &H1700
  54. %KyAltJ   = &H2400
  55. %KyAltK   = &H2500
  56. %KyAltL   = &H2600
  57. %KyAltM   = &H3200
  58. %KyAltN   = &H3100
  59. %KyAltO   = &H1800
  60. %KyAltP   = &H1900
  61. %KyAltQ   = &H1000
  62. %KyAltR   = &H1300
  63. %KyAltS   = &H1F00
  64. %KyAltT   = &H1400
  65. %KyAltU   = &H1600
  66. %KyAltV   = &H2F00
  67. %KyAltW   = &H1100
  68. %KyAltX   = &H2D00
  69. %KyAltY   = &H1500
  70. %KyAltZ   = &H2C00
  71.  
  72.     ' Keyboard Codes: Ascii
  73.  
  74. %KyBS     = 8
  75. %KyTab    = 9
  76. %KyCR     = 13
  77. %KyESC    = &H1B
  78. %KyClr    = &H7F
  79. %KyPlus   = 45
  80. %KyMinus  = 43
  81.  
  82.     ' Color Constants
  83.  
  84. %c.BLACK  = 0
  85. %c.BLUE   = 1
  86. %c.GREEN  = 2
  87. %c.CYAN   = 3
  88. %c.RED    = 4
  89. %c.PURPLE = 5
  90. %c.BROWN  = 6
  91. %c.WHITE  = 7
  92. %c.GREY   = 8
  93. %c.bBLUE  = 9
  94. %c.bGREEN = 10
  95. %c.bCYAN  = 11
  96. %c.bRED   = 12
  97. %c.bPURPLE = 13
  98. %c.YELLOW = 14
  99. %c.bWHITE = 15
  100. %c.BRIGHT = 8
  101.  
  102.     ' From UTILS.ASM
  103.  
  104. DECLARE SUB SET.VIDEO.MODE ALIAS "SET_VIDEO_MODE" (BYVAL Mode%)
  105. DECLARE FUNCTION SCAN.KEYBOARD% ALIAS "SCAN_KEYBOARD" ()
  106. DECLARE FUNCTION RANDOM.INT ALIAS "RANDOM_INT" (BYVAL MaxInt%)
  107. DECLARE SUB INIT.RANDOM ALIAS "INIT_RANDOM" ()
  108. DECLARE FUNCTION TIMER.COUNT& ALIAS "TIMER_COUNT" ()
  109. DECLARE FUNCTION INT.SQR ALIAS "INT_SQR" (BYVAL X%, BYVAL Rownd%)
  110.  
  111.